/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / blitzbasic21 / examples / andrew / parjoy.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| da 01 2e 62 20 24 62 66 | 65 33 30 31 2c 30 20 3b |...b $bf|e301,0 ;|
|00000010| 32 35 35 00 00 80 0c 20 | df 04 28 30 29 3d 30 00 |255.... |..(0)=0.|
|00000020| 20 20 dd 81 20 dc 82 28 | dc 85 28 da 02 2e 62 28 |  .. ..(|..(...b(|
|00000030| 24 62 66 65 31 30 31 29 | 29 2c 38 29 2c 22 20 20 |$bfe101)|),8),"  |
|00000040| 22 00 20 20 6d 61 72 6b | 31 2e 77 3d da 02 2e 62 |".  mark|1.w=...b|
|00000050| 28 24 62 66 65 31 30 31 | 29 00 20 20 6d 61 72 6b |($bfe101|).  mark|
|00000060| 32 2e 77 3d da 02 2e 62 | 28 24 62 66 64 30 30 30 |2.w=...b|($bfd000|
|00000070| 29 00 20 20 dd 81 20 dc | 82 28 dc 85 28 da 02 2e |).  .. .|.(..(...|
|00000080| 62 28 24 62 66 64 30 30 | 30 29 29 2c 38 29 2c 22 |b($bfd00|0)),8),"|
|00000090| 20 20 22 00 00 20 20 6a | 6f 78 3d 28 6d 61 72 6b |  "..  j|ox=(mark|
|000000a0| 31 26 34 20 2d 20 28 6d | 61 72 6b 31 26 38 29 20 |1&4 - (m|ark1&8) |
|000000b0| 80 45 20 31 29 80 45 20 | 32 20 2b 20 31 00 20 20 |.E 1).E |2 + 1.  |
|000000c0| 6a 6f 79 3d 6d 61 72 6b | 31 26 31 20 2d 20 28 6d |joy=mark|1&1 - (m|
|000000d0| 61 72 6b 31 26 32 29 20 | 80 45 20 31 20 2b 20 28 |ark1&2) |.E 1 + (|
|000000e0| 6d 61 72 6b 32 26 34 29 | 20 80 45 20 32 00 20 20 |mark2&4)| .E 2.  |
|000000f0| dd 81 20 22 20 22 2c 6a | 6f 78 2c 6a 6f 79 2c 22 |.. " ",j|ox,joy,"|
|00000100| 20 22 00 00 20 20 6a 6f | 78 3d 28 6d 61 72 6b 31 | "..  jo|x=(mark1|
|00000110| 26 36 34 20 2d 20 28 6d | 61 72 6b 31 26 31 32 38 |&64 - (m|ark1&128|
|00000120| 29 20 80 45 20 31 29 80 | 45 20 36 20 2b 20 31 00 |) .E 1).|E 6 + 1.|
|00000130| 20 20 6a 6f 79 3d 28 6d | 61 72 6b 31 26 31 36 20 |  joy=(m|ark1&16 |
|00000140| 2d 20 28 6d 61 72 6b 31 | 26 33 32 29 20 80 45 20 |- (mark1|&32) .E |
|00000150| 31 29 80 45 20 34 20 2b | 20 28 6d 61 72 6b 32 26 |1).E 4 +| (mark2&|
|00000160| 31 29 00 00 20 20 dd 81 | 20 22 20 22 2c 6a 6f 78 |1)..  ..| " ",jox|
|00000170| 2c 6a 6f 79 2c 22 20 22 | 00 00 20 20 dd 81 20 22 |,joy," "|..  .. "|
|00000180| 20 22 2c df 01 28 31 29 | 2b 31 2c df 02 28 31 29 | ",..(1)|+1,..(1)|
|00000190| 2b 31 2c 22 20 22 00 00 | 20 20 dd 82 20 22 22 00 |+1," "..|  .. "".|
|000001a0| 80 c1 00 00 80 02 00 00 | 00 3b 73 6f 72 72 79 20 |........|.;sorry |
|000001b0| 61 20 62 69 74 20 6f 66 | 20 63 72 65 61 74 69 76 |a bit of| creativ|
|000001c0| 65 20 6c 69 63 65 6e 73 | 65 20 61 62 6f 76 65 2e |e licens|e above.|
|000001d0| 2e 00 3b 6a 6f 79 73 74 | 69 63 6b 20 33 00 3b 20 |..;joyst|ick 3.; |
|000001e0| 20 6a 6f 78 3d 28 6d 61 | 72 6b 31 26 34 20 2d 20 | jox=(ma|rk1&4 - |
|000001f0| 28 6d 61 72 6b 31 26 38 | 29 20 41 53 52 20 31 29 |(mark1&8|) ASR 1)|
|00000200| 41 53 52 20 32 20 2b 20 | 31 00 3b 20 20 6a 6f 79 |ASR 2 + |1.;  joy|
|00000210| 3d 6d 61 72 6b 31 26 31 | 20 2d 20 28 6d 61 72 6b |=mark1&1| - (mark|
|00000220| 31 26 32 29 20 41 53 52 | 20 31 00 3b 20 20 66 69 |1&2) ASR| 1.;  fi|
|00000230| 72 65 3d 20 28 6d 61 72 | 6b 32 26 34 29 20 41 53 |re= (mar|k2&4) AS|
|00000240| 52 20 32 00 3b 00 3b 6a | 6f 79 73 74 69 63 6b 20 |R 2.;.;j|oystick |
|00000250| 34 00 3b 20 20 6a 6f 78 | 3d 28 6d 61 72 6b 31 26 |4.;  jox|=(mark1&|
|00000260| 36 34 20 2d 20 28 6d 61 | 72 6b 31 26 31 32 38 29 |64 - (ma|rk1&128)|
|00000270| 20 41 53 52 20 31 29 41 | 53 52 20 36 20 2b 20 31 | ASR 1)A|SR 6 + 1|
|00000280| 00 3b 20 20 6a 6f 79 3d | 28 6d 61 72 6b 31 26 31 |.;  joy=|(mark1&1|
|00000290| 36 20 2d 20 28 6d 61 72 | 6b 31 26 33 32 29 20 41 |6 - (mar|k1&32) A|
|000002a0| 53 52 20 31 29 41 53 52 | 20 34 00 3b 20 20 66 69 |SR 1)ASR| 4.;  fi|
|000002b0| 72 65 3d 20 28 6d 61 72 | 6b 32 26 31 29 00 00    |re= (mar|k2&1).. |
+--------+-------------------------+-------------------------+--------+--------+